Дана матрица B(N,M). Выдать минимальный элемент каждого столбца матрицы — QBasic(Бейсик)

cLS
PRINT "zadayte kol-vo ctolbcov"
INPUT n
PRINT "zadayte kol-vo ctrok"
INPUT m
DIM a(m, n)
FOR i = 1 TO m
FOR j = 1 TO n
PRINT "zadayte element"; i, j
INPUT a(i, j)
NEXT
NEXT
PRINT "massiv"
FOR i = 1 TO m
FOR j = 1 TO n
PRINT a(i, j);
NEXT
PRINT
NEXT
PRINT "minimumy stolbcov"
FOR j = 1 TO n
min = a(1, j)
FOR i = 2 TO m
IF a(i, j) < min THEN min = a(i, j)
NEXT
PRINT min;
NEXT